00100	begin "tstapp"
00200	   itemvar x;
00250	   require 15 new!items;
00300	   procedure q(itemvar t);
00400	   begin
00500	       print(t);
00600	   end;
00700	   recursive procedure apq(itemvar z);
00800	   begin
00900	       apply(q,arg!list(z));
01000	   end;
01100	   x := new;
01200	    new!pname(x,"x");
01300	   apq(x);
01400	end "tstapp";